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TATU iM doe 34 - SYSTEM SERVICE ADJUS 


Seeeeeeeerereererererereeereeeeearenekekererenes 


COPYRIGHT («) 1978, 1980, 1982, 1984 BY 
DIGITAL FQu PRENT CORPORATION, MAYNARD, MASS 
ALL RIGHTS RESERVED. 


ONLY He Ag ORDAN 
10N THE ABOV 
S_ THEREOF ROV 
PERSON. NO TITLE TO AND OWNERSHIP OF 
ANSFERRED. 
E INFORMATION IN THIS SOFTWARE IS SUBJECT 
poRATion NOT BE CONSTRUED AS A COMMIT 
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WARE ON EQUIPMENT WHICH IS NOT SUPPLIED 
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R1HO0031 
ADD CALL TO EXESEXPANDSTK TO IMP 
EXPANSION FOR USER MODE STACK. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY He 
CE WITH THE TERM F SUCH bi¢ NSE AND WITH Le 
: THIS SOFTWARE OR ANY OTHE 
IDED OR OTHERWISE MADE AVAILABLE TO ANY 


ITY FOR THE USE OR RELIABILITY OF ITS 
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eeeeeeereerererereerereeeeere 
ACHUSETTS. 


SED AND COPIED 
THE SOFTWARE IS HEREBY 
TO CHANGE WITHOUT NOTICE 

MENT BY DIGITAL EQUIPMENT 


BY DIGITAL. 


T 
LEMENT AUTOMATIC STACK 


; MODIFIED BY: 
; v03-003 TMKO0001 Todd M. Katz 19-Nov-1983 
; Change a BSBW (to EXESEXPANDSTK) to a JSB. 
; V03-002 SRB0068 Steve Beckhardt 22-F eb-1983 
3 Removed most of ACG0310. 
it ; v03-001 ACG0310 Andrew C. Goldstein, 31-Jan-1983 13:37 
3 Fix stack adjustment when stack is expanded 
; 02 RICHARD I. HUSTVED 6-AUG-1979 
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Wwro—o 
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SYS.SRCISY YSTKOMAR; 1 
yYUN 
eielele 
5000 if ACMODE= ZACCESS MODE TO ADJUST STACK POINTER FOR 
000¢ ADJUST= 31 SIGNED ADJUS TRENT VALUE 
C 0000 $i AD gT = ;ADDRESS OF LONGWORD TO STORE UPDATED VALUE 
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$ TK VICE AD 16-SEP- :3 AX/VM © V04-00 Pa 
Mites MODE STACK POINTER Breer ib8 Bi zeas PANKMES Becca VOtrO0 ae 
«SBTTL ADJUST OUTER MODE STACK POINTER 
; EXESADJSTK = ADJUST OUTER MODE STACK POINTER 
; THIS SERVICE PROVIDES s THe CAPABILITY TO ADJUST THE STACK POINTER FOR 
> A MOD a, st ss P VIL GED HAN THE CALLING ACCESS MODE. IT CAN BE 
+ USED TO OAD RN NITIAL YY VALU INTO THE SPECIFIED MODE'S STACK POINTER OR 
; TO ADJUST ITS CURRENT VALU 
; INPUTS: 
; ACHODE (AB) : ACCESS MODE TO ADJUST STACK POINTER FOR. 
: ; ADJUST(AP) = 16-BI1T SIGNED ADJUSTMENT VALUE. 
; NEWADR(AP) = ADDRESS OF LONGWORD TO STORE DATED VALUE. 
28 : If THE INITIAL CONTENTS OF @NEWADR(AP) ARE NONZERO 
79 ; HEN THE VALUE Is TAKEN AS THE CURRENT TOP OF STACK. 
? 3 ELSE THE CURRENT STACK POINTER FOR THE SPECIFIED MODE 
; IS USED. 
; : OUTPUTS: 
5: RO LOW BIT CLEAR INDICATES FAILURE TO ADJUST STACK POINTER. 
$ : RO = SS$ accv19 = LONGWORD TO STORE UPDATED STACK POINTER 
3 3 OR T OF NEW STACK SEGMENT CANNOT BE WRITTEN BY 
9: CALLING ACCESS MODE. 
91: RO = SS$_NOPRIV = SPECIFED ACCESS MODE IS EQUAL OR MORE 
3 ; PRIVILEGED THAN CALLING ACCESS MODE. 
94 : RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
$6 : RO = SS$_NORMAL = NORMAL COMPLETION. 
9 a 
39 .PSECT YSEXEPAGED 
00 ¢ 00 1 : "ENTRY EXESADISTE°McR2, R3,R4,R5,R6> 
5 ocac D 2 1 VL ON NEWADR AP)_R 36ET ADDRESS TO STORE NEW STACK VALUE 
53 04 AC 02 Q EF 0006 1 g EXTZV ACMOBE CAP), R3 'GET ACCESS MODE TO MODIFY STACK POINTER FOR 
bc 000C «(1 MOVPSL “READ CURRENT PSL 
53 52 «02 i Fb i 4 CMPLV #PSLSV_PRVMOD .#PSLS$S -PRVAOD.R2,R3 |: PREVIOUS MODE MORE PRIVILEGED? 
15 1 6 IFNOWRT #4. (R5),40$ [CAN NEW STACK VALUE BE WRITTEN? 
56 09 18 107 S$: MOVL (R5),R6° 3GET SPECIFIED STACK VALUE 
* 1 : BNEG 108 ;1F NEQ VALUE SPECIFIED 
50° OBA 3 } 9 10$:  CVTWL ADJUST(AP),RO [GET ADJUSTMENT VALUE 
56 C 11 ADDL RO,R [CALCULATE NEW TOP OF STACK 
cE A 11 MNEGL R R TALLOCATION OF STACK SPACE? 
D «(11 BLEQ § 71F LEQ NO 
51 36 00 F 114 =e ah} [COPY NEW STACK VALUE 
52 FEOO BF 3 115 CVTWL = o#=*X 00.83 [SET ADDITION CONSTANT 
118 208: I FNOWRT RQ, (R1) 408, R3 [CAN ALLOCATED STACK SEGMENT BE WRITTEN? 
51 5 2 1 SUBL  —-R2_R : UPDATE ADDRESS IN STACK 
50 604 i 48 11 MOVAW (no) R27,R0 SUPDATE REMAINING LENGTH 
F 4 1 BGEQ SIF GEG MORE TO CHECK 
53 56 DA 0046 120 308:  MTPR  R6,R3 : 


kK 1 
voL-bo8 ADJUST OUTER MODE STACK POINTER” Hack "Sepa lobe Ossabsde Leas eRcHeySastx man;1 = 2% cf, 
St HP AEP 13 Both esam.no SUPPER SESS 
53 t p 40S: she 48 LSC_USER,R3 if THIS FOR USER MODE STACK? 
alld ; : ! § pene P°RCRI.R2,R3, R4,R5> Save ve. "ease ETADD ons 
O'EF A 1 JSB pete 3A GREN STACK 15° MAKE ACCESSIBLE 
ee earch 
1 RET RETURN nN ER ROR CODE 
50 OC ¢ é ; 50$ MOVZWL #SS$_ACCV1O,RO ;SET ACCESS VIOLA 10N 
a. ae 3 6A 134 60$ MOVZWL #SS$_NOPRIV,RO [SET NO PRIVILEGE 
4 : 5 RET 3 
SE 1 : .END 
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ymbol table SYS.SR cf SADJSTK -MAR;1 
<n = 
77 $444 = 
3 JSTK , & 
XESEXPANDSTK Se 
NEWADR = 
PSLSC_USER 2 
PSLSS_PRVMOD = 
Pat V_PRVMOD : 
SS$_ACCVIO = 
SS$_NOPRIV 2 
SS$_NORMAL = 
Seen eee oe soe eee => 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
ABS. 0900000 { -)» 00 ¢ 9.3 NOPIC USR CON ABS’ LCL pete NOEXE NORD NOWRT NOVEC BYTE 
S$ 000000 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
YSEXEPAGED 000006E ( 11 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC BYTE 
uaceueeseusesceuscesesooes$ 
! \ Per tormance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization $3 :00: 8.) :00:00.43 
pennene processing Mi :00:00. :00: 2:8 
pe table sort : :00:00.69 :00: “4 
Symbol table output 00:00. : 0: : 
Psect synopsis output :00:00. 
Cross-reference output :00:00. 3: :00. 
Assembler run totals 39 :00:06.4 :00:27. 


23668°bytes set Limit was 1900 pages. 
bytes (45 pages) of ye rtual memory were used to buffer the intermediate 
1395 were e pages of symbol table space al ocated to hold 451 non-local ge gi symbols. 
source Lines were read in Pass 1, producing 16 object records in Pass 
0 pages of pe A, memory were used to def ne 5 macros. 
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Macro Library name Macros defined 
SYS. yt -MLB;1 1 
-$32 suse t vs) LET.MLB;2 5 
TOTALS (all hate rs 6 


516 GETS were siesta to define 6 macros. 
There were no errors, warnings or information messages. 
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